[Source]Patchera w Visual Basicu

[Remotion]

HI MPCFORUM .

Ostatnio nudziło mi się więc pobawiłem się troszeczkę w vb i przez to daję wam teraz Source

tego patchera moze w przyszlosci opiszę jak z source wykonac patcher dla tych co nie wykorzystają go bo nie będą wiedzieli po co jest no to macie kod:

button 2 odpowiada za uruchomienie config.exe

button 3 zamyka program

 

Public Class remotion
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Button1.Enabled = False
TextBox1.Text = "Poczekaj . . ."
TextBox1.Text = "Patchowanie zaraz się rozpocznie. . ."
ProgressBar1.Value = "1"
Timer1.Start()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Close()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Shell("config.exe", AppWinStyle.NormalNoFocus)
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Value = "2"
TextBox1.Text = "metin2.bin Jest sprawdzany"
If My.Computer.FileSystem.FileExists("metin2.bin") Then
My.Computer.FileSystem.DeleteFile("metin2.bin")
TextBox1.Text = "metin2.bint został usunięty"
End If
My.Computer.Network.DownloadFile("http://www.rettjup.pl/dopobrania/metin2.bin", "metin2.bin")
TextBox1.Text = "Zostały pobrane nowe pliki metin2.bin"
ProgressBar1.Value = "3"
'Locale_pl.eix
TextBox1.Text = "locale_pl Jest sprawdzany"
If My.Computer.FileSystem.FileExists("pack/locale_pl.eix") Then
My.Computer.FileSystem.DeleteFile("pack/locale_pl.eix")
TextBox1.Text = "Locale_PL zostało usunięte..."
End If
My.Computer.Network.DownloadFile("http://www.xxx.pl/xxx/locale_pl.eix", "pack/locale_pl.eix")
TextBox1.Text = "Nowy plik locale_pl został pobrany..."
ProgressBar1.Value = "4"
'locale_pl.epk
TextBox1.Text = "locale_pl.epk jest sprawdzany."
If My.Computer.FileSystem.FileExists("pack/locale_pl.epk") Then
My.Computer.FileSystem.DeleteFile("pack/locale_pl.epk")
TextBox1.Text = "Locale_pl zostało usunięte..."
End If
ProgressBar1.Value = "5"
My.Computer.Network.DownloadFile("http://www.xxx.pl/xxx/locale_pl.epk", "pack/locale_pl.epk")
TextBox1.Text = "Nowe locale_pl.epk zostało dodane..."
TextBox1.Text = "Patchowanie zakonczone pomyślnie"
ProgressBar1.Value = "100"
If My.Computer.FileSystem.FileExists("Nazwalaunchera.exe") Then
TextBox1.Text = "Serwer Za chwile sie uruchomi."
Button1.Enabled = True
If TextBox1.Text = "Serwer Za chwile sie uruchomi..." Then
Shell("start.exe")
Me.Close()
End If
Else
TextBox1.Text = "Z twoim klientem jest cos nie tak"
TextBox1.Text = "musisz miec innego klienta xxx"
End If
Timer1.Stop()
End Sub
End Class

z racji ze dzisiaj sobota zrobilem tez dla was Downloader. .. to taki program ktory pobiera calego klienta ;x]

Public Class remotion
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Button1.Enabled = False
TextBox1.Text = "Poczekaj . . ."
TextBox1.Text = "Patchowanie zaraz się rozpocznie. . ."
ProgressBar1.Value = "1"
Timer1.Start()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Close()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Shell("config.exe", AppWinStyle.NormalNoFocus)
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Value = "50"
TextBox1.Text = "Klient za chwile zostanie pobrany"
If My.Computer.FileSystem.FileExists("klient.rar") Then
End If
My.Computer.Network.DownloadFile("http://www.bezposrednilink.pl/xxx.rar", "xxx.rar")
TextBox1.Text = "Klient zostal pobrany ; D"
ProgressBar1.Value = "100"
End Sub
End Class

 

[Ŧalse]

Te source bylo na mpc

[lopescio]

My.Computer.Network.DownloadFile("http://www.rettjup.pl/dopobrania/metin2.bin", "metin2.bin")

 

Czy mi się wydaje, czy każdy plik trzeba dodawać ręcznie do source?

[lopescio]

@Endy Specjalnie dla Ciebie większy kawałek kodu

 

End If
My.Computer.Network.DownloadFile("http://www.rettjup.pl/dopobrania/metin2.bin", "metin2.bin")
TextBox1.Text = "Zostały pobrane nowe pliki metin2.bin"
ProgressBar1.Value = "3"
'Locale_pl.eix
TextBox1.Text = "locale_pl Jest sprawdzany"
If My.Computer.FileSystem.FileExists("pack/locale_pl.eix") Then
My.Computer.FileSystem.DeleteFile("pack/locale_pl.eix")
TextBox1.Text = "Locale_PL zostało usunięte..."
End If
My.Computer.Network.DownloadFile("http://www.xxx.pl/xxx/locale_pl.eix", "pack/locale_pl.eix")
TextBox1.Text = "Nowy plik locale_pl został pobrany..."
ProgressBar1.Value = "4"
'locale_pl.epk
TextBox1.Text = "locale_pl.epk jest sprawdzany."
If My.Computer.FileSystem.FileExists("pack/locale_pl.epk") Then
My.Computer.FileSystem.DeleteFile("pack/locale_pl.epk")
TextBox1.Text = "Locale_pl zostało usunięte..."
End If
ProgressBar1.Value = "5"
My.Computer.Network.DownloadFile("http://www.xxx.pl/xxx/locale_pl.epk", "pack/locale_pl.epk")
TextBox1.Text = "Nowe locale_pl.epk zostało dodane..."
TextBox1.Text = "Patchowanie zakonczone pomyślnie"
ProgressBar1.Value = "100"
If My.Computer.FileSystem.FileExists("Nazwalaunchera.exe") Then
TextBox1.Text = "Serwer Za chwile sie uruchomi."
Button1.Enabled = True
If TextBox1.Text = "Serwer Za chwile sie uruchomi..." Then
Shell("start.exe")
Me.Close()

 

Ja na VB się nie znam, ale troszkę znajomości php i lua mi mówi, że to są właśnie funkcje, które odpowiadają za ściąganie plików, choć mogę się mylić

[Remotion]

nie bezużyteczny

aby dodac plik nalezy dodac pomiedzy tymi 2 localami

 

'Locale_pl.eix
TextBox1.Text = "locale_pl Jest sprawdzany"
If My.Computer.FileSystem.FileExists("pack/locale_pl.eix") Then
My.Computer.FileSystem.DeleteFile("pack/locale_pl.eix")
TextBox1.Text = "Locale_PL zostało usunięte..."
End If
My.Computer.Network.DownloadFile("http://www.xxx.pl/xxx/locale_pl.eix", "pack/locale_pl.eix")
TextBox1.Text = "Nowy plik locale_pl został pobrany..."
ProgressBar1.Value = "4"

[Badar]

No dobra, załóżmy że dałem ten patcher do clienta i dałem tylko żeby patchował root. Teraz chcę aby jeszcze patchował ikon to muszą gracze od nowa pobierać patcher?

 

No a jakby inaczej ?

 

Remotion loffcia kopiować z mpc . Tak to już było, bodajże w dziale dot programistyki

[lopescio]

Ciekawe, pobieraj pathera aby pobrać pliki

 

A gdzie jest jakaś funkcja, która sprawdza czy to locale które jest w cliencie, jest takie samo jak to z strony?

[Badar]

Ciekawe, pobieraj pathera aby pobrać pliki

 

A gdzie jest jakaś funkcja, która sprawdza czy to locale które jest w cliencie, jest takie samo jak to z strony?

 

Nie ma bo po co ?

 

Lepiej ciągle pobierać i marnować transfer

[lopescio]

No i osoby z limitami transferu (czyt. ja) już na takim serwerze sobie nie pograją

 

Jednym słowem pather niezbyt przydatny

[xXAsparteXx]

Do tego ten patcher jest tak debilny, że jeśli dany plik istnieje w kliencie to go usuwa i pobiera na nowo. Powodzenia przy PC i PC2. Absolutne minimum patchera to porównywanie wagi plików(najlepiej opierać się na sumach md5/crc).

[Heveris_Metin2]

to forum schodzi na psy.

lepiej już autoit+kodowanie MD5 + nieco mózgu zastosować

[StopPro]

dziwne bo podobny kod do sherera

[Farrek]

1/10 bo sprawiłeś że pisze tego posta. Fajnie że cokolwiek wrzucasz ale jak to mówią "Niektórymi rzeczami lepiej sie nie chwalić", bekowy ten patcher.

[JachuPL]

to nie lepiej było wymusić na patcherze autoupdate albo dodać funkcję od pobierania określonych plików bez potrzeby zmiany patchera?